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LL I] $$ 
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COPYRIGHT (c) 1978, 1980 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 


ALL RIGHTS RESERVED. 


THIS SOFTWARE $3 4 ti ee UNDER A LICENSE AND MAY BE USED AND sorte 
ONLY IN acre DANCE WITH THE TERMS OF SUCH bicee SE AND WITH THE 
INCLUSION OF THE ABOVE pila NOTICE. THIS soft WARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
Sepokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH IS N 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 
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ABSTRACT: 
LP11/LS11/LV11 LINE PRINTER DRIVER 
AUTHOR: 
R. HEINEN 6-SEP-76 
MODIFIED BY: 
v03-011 EMD008S Ellen M. Dusseault 30-Apr-1984 
Add DEVSM_NNM characteristi to DEVCHAR2 so that these 
aeesate will have the “‘node2"’ prefix. 
v03-010 gm00084 Ellen M. Dusseault 19-Apr-1984 
ix problem with lowercase pP not appearing. It was 
aoe thentie put in the control table so remove it. 
v03-009 edtgg Elliott A. a broxsen 13-Apr-1984 
ange the sense of the T ATE branch 
— A truncate the LB mers 


v03-008 od Elliot . Drayton 12-Apr-1984 
Added support for TAB 7 TRUNCATE. 


v03-007 —mD0077 Ellen M. Dusseault 10-Apr-1984 
Modify to make code more efficient. 


v03-006 EMD0047 Ellen M. Dusseault. 22-Jan-1984 
Add new feature, falihack. The ability to convert 8-bit 


SOoOSOSCSCSOSCOSOSCOOSOSOOSOSOSOSOOOOSOSOSOSOSS 


SoOoooooooooo 


oo 


SDOSOOOSOOOSOOOSOOOSOOOOOOOOOOOOOOoOSoO 


OOooooo 


oo 
oo 


= 
= 


NO ALN OOO WHO NEW 8 OD NONE UN 8 ODN NE WWIN 3 9 ODN UE WN OOO VNO UNE Urn 


PPPAPAPPAIA ESE BPP LEE 


<r 


ee 


"7 
LPDRIVER 3 = LPII/LS11/LV11 LINE PRINTER DRIVER  15SEP=1984 23:59:04 VAX/VMS Macro v04-00 : 
viet BaSee eRe Basie se LOR VES Bacto fT Oe ans1 2% Gy 


ascii characters to their 7-bit equivalent representation 
v03-005 aad Trudy C. Matthews 14-Dec-1983 


60 : 
3 ; hange NOP wait loops to use calibrated EXESGL_UBDELAY cell. 
63 ; V03=004 £AD0069 Elliott A. Drayton 6-Jan-1983 
rt: : Changed default number of Lines per page to 66. 
66 : v03-003 EAD0068 Elliott A. Drayton 21-Sep-1982 
67 ; Correct UCBSL_LP_OFLCNT storage allocation from byte 
0 re: ; to longword. Also reposition code for LP ready test. 
$00 0; v03-002 EAD0067 Elliott A. Drayton 01-Jul-1982 
4 4 3 Change branch instructions for horizontal position tests. 
0000 73: v03-001 KDM0002 Kathleen D. Morse 28-Jun-1982 
0000 74 ; Added SDYNDEF, SDCDEF, and SPRDEF. 
0000 75 ; 
0000 76 ;-- 
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4 -SBTTL Declarations 
0; 
: 3 MACRO LIBRARY CALLS 
6 4 SCRBDEF ;DEFINE CRB OFFSETS 
5 SOCDEF sDEFINE DEVICE TYPES 
0 § SDDBDEF sDEFINE DDB OFFSETS 
44 SDPTDEF sDEFINE DPT OFFSETS 
0 3 SDYNDEF sDEFINE DYNAMIC DATA STRUCTURE TYPES 
4 SIOBDEF sDEFINE IDB OFFSETS 
0 0 SIODEF sDEFINE 1/0 FUNCTION CODES 
Bah 91 SIRPDEF sDEFINE IRP OFFSETS 
38 SJIBDEF sDEFINE JIB OFFSETS 
000 9 SLPDEF sDEFINE LINE PRINTER CHARACTERISTICS 
000 94 SMSGDEF sDEFINE SYSTEM MESSAGE TYPES 
44 95 SPCBDEF ;DEFINE PCB OFFSETS 
0 38 SPROEF sDEFINE PROCESSOR REGISTER NUMBERS 
0000 9 SSSODEF sDEFINE SYSTEM STATUS CODES 
44 98 SUCBDEF ;DEFINE UCB OFFSETS 
000 99 SVECDEF ;DEFINE VEC OFFSETS 
0000 100 
44 101 ; 
000 19 3; LOCAL SYMBOLS 
4 103 ; 
8 0 104 ; ARGUMENT LIST OFFSET DEFINITIONS 
000 105; 
0000 106 
00000000 0000 107 P1=0 zsFirst function dependent parameter 
00000004 B88 108 Se zsSecond function dependent parameter 
00000008 000 109 P3=8 sThird function dependent parameter 
0000000 000 110 P4=12 sFourth function dependend parameter 
0000001 000 111 P5=16 Fifth function dependent parameter 
00000014 4 We P6=20 sSixth function dependent parameter 
00000780 +4 HF LP_HRCNT=1920 ;Timeout value for one hour 
4 115 ; 
4 133 3 CHARACTER CODE DEFINITIONS 
118 ° 
000000D 119 c.cRet3 Carriage return 
000000C 00 120 C_FF=1 iForm feed 
° 121 ClvT=11 iVerticle tab 
A 1 § C_LF=10 iLine feed 
00000009 00 : ? C_TAB=9 ; Tabulation 
125 ; 
| } § 3 FLAG REGISTER BIT DEFINITIONS 
1 a 
ties 1 § M_CRPEND=1 Carriage return pending 
0000000 ' ? v_CRPEND=0 : 
132 ; 
: § : LPTI/LSTI/LV11 DEVICE REGISTER OFFSET DEFINITIONS 
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0 135 

0 ! § SDEFINI LP 

0 138 SDEF ‘ CSR -BLKW 1 CONTROL STATUS REGISTER 

139 VIELD LP_CSR,6,<- 
0 140 <IE,,M>,- 
02 141 <DONE, ,A>,= 

B08 148 > 

h3 be SDEF LP_DBR -BLKW 1 " ;DATA BUFFER REGISTER 

$006 145 SDEFEND LP 

8000 14? ; 

444 be ; DEFINE DEVICE DEPENDENT UNIT CONTROL BLOCK OFFSETS 

909 150 ° 

00 151 SDEFINI UCB 

0000 136 

00000090 444 137 - =UCBSK_LENGTH : 

0090 155 SDEF cee -LP_MUTEX .BLKL 1 sLine printer UCB mutex 

094 156 SDEF UCBSL-LP_TIMEOUT .BLKL 1 Printer problem message timer 

098 157 SDEF UCBSL_LP_OFLCNT .BLKL 1 :Offline time counter 

009C 158 SDEF UCBSB_LP_CURSOR .BLKB 1 ;Current horizontal position 
009D 159 $DEF UCB$B_LP_LINCNT .BLKB- 1 :Current Line count on page 
4 199 SDEF UCBS$B_ SPARE -BLKB 2 SPARE UNUSED BYTES 

000000A0 00A0 19 UCBSK_SIZE=. 

OOAO 16 SDEFEND UCB 


—— 
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-SBTTL Driver prologue table and driver dispatch table 


= 
o 
wa 


: LOCAL DATA 
: DRIVER PROLOGUE TABLE 


DPTAB = ;DEFINE DRIVER PROLOGUE TABLE 
END=LP_END,=- zsEnd of driver 
ADAPTER=UBA, = yAdapter type 
Ucbsi ze =UcagK. SIZE,-  ;UCB size 
NAME =L :Driver name 
DPT_STORE IN iT :Control block init values 
DPT~ STORE UCB,UCBS$B_FIPL,B,8 ‘Fork IPL 


DPT-STORE UCB,UCBSL_ “DEVCHAR, L.- :Device tearectartenten 
<DEVSA_R EC-" ; Record oriented 
'DEVSM_AVL=- 3 Available 
1 DEVSM_ ech : Carriage control device 
'DEVSM-ODV> ; Output device 
DPT_STORE UCB, ocesi _DEVCHAR2,L,= : wad characteristics 
‘e $#_NNM> efix name with ‘'node$ 
DPT_STORE UCB, Ocese _DEVCLASS 8 pis! UP sDevice class 
DPT~ STORE UCB, UCBS$B_ DEVTYPE,B $ cri sDevice type 
DPT“STORE UCB.U UCBs DEVBUF SIZ. U, Ps :Default CR Jiee ctes 


DPT“STORE UCB “DEVDEPEND, 
rssh 8 “ME CHF ORM! (PSM TRUNCATE> ;Printer parameters 

DPT_STORE UCB,UCB$B_DIPL, evice 

DPT“STORE UCB,UCBSL_LP_MU MOTEX.W.=4 sInitialize mutex 

DPT_STORE REIN mere: block re-init values 

DPT-STORE CRB,CRBSL_INTD+4,D LPSiNT : nterru t service routine address 

DPT“STORE CRB. RBSL- INTD+VEC$L_INIT thes X11_CINIT :Controller init 

DPT“STORE CRB,CRBSL_INTD+VECSL “UNITINTE B os LXIT_INIT :Unit init 

DPT“STORE DDB,DDBSL-DDT,D,LPSDDT ;DDT address 


DPT-STORE END : 


; DRIVER DISPATCH TABLE 
DDTAB DRIVER DISPATCH TABLE 
T10,- Start 1/0 operation 
:Unsolicited interrupt 
TABLE,- Function tabie 
SCANCELIO,- :Cancel 1/0 
:Register dump routine 
:Size of diagnostic buffer 
:Size of error log buffer 
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8 1 -SBTTL LPITI/LS11/LV11 Function decision table 
3 18 3 LP11/LS11/LV11 FUNCTION DECISION TABLE 
0 18° 
0 ig FUNCTABLE: sFUNCTION DECISION TABLE 
0 FUNCTAB ,- jLegal functions 
1 <SENSECHAR,= :Sense characteristics 
0 § SETCHAR,= sSet characteristics 
0 SENSEMODE , = iSense mode 
4 SETMODE,- mode 
: 5 WRITELBLK,= curite logical block 
§ WRITEPBLK,=- tWwrite physical block 
0 WRITEVBLK> tWrite virtual block 
0040 8 FUNCTAB ,- SLEGAL FUNCTIONS 
BRe8 9 <SENSECHAR, = Sense sharestertetten 
004 0 SETCHAR,- sSet characteristics 
0040 1 SENSEMODE ,- :Sense mode 
0040 ¢ SETMODE ,- :Set mode 
0040 WRITELBLK,- tWrite logical block 
0040 4 WRITEPBLK »~ iWrite physical block 
004 5 WRITEVBLK Write virtual block 
004 4 FUNCTAB LP. WRITE, <WRIT TELBLK WRITEPBLES WRITEVBLK> ;Write functions 
0054 37 FUNCTAB LP SSEIMOBE < <SETCHAR,SETMODE> ;Set characteristics functions 
0060 38 FUNCTAB sEFesse MODE ,- ; 
0060 39 SEENA :Sense characteristics 
0060 40 <SENSERODES :Sense mode 


—————————— 


tooeiyee - LP11/LS11/LV11 LINE PRINTER DRIVER’ a 3 tb 4 23:59: +06 AX/VMS Macro v04-00 Page 7 
v0<4 Set characteristics and set mode functio 5-SEP-1984 00:14: DRIVER. SRCILPDRIVER.MAR; 1 (1). 
of tg . os -SBTTL Set characteristics and set mode function processing 
| ot te i ; LP_SETMODE = SET CHARACTERISTICS AND SET MODE FUNCTION PROCESSING 
bet tg s ne ROUTINE IS CALLED FROM THE FUNCTION DECISION TABLE DISPATCHER TO PROCESS 
oe r : A SET MODE FUNCTION TO A LINE PRINTER. 
3s a3 ; : INPUTS: 
6c 951: RO = SCRATCH. 
06C 26 $ R1 = SCRATCH. 
64 2 ; Re = SCRATCH. 
6C 4; RS = ADDRESS OF 1/0 REQUEST PACKET. 
006C 55 3 R4 = CURRENT PROCESS PCB ADDRESS. 
445 $ 5 RS = ASSIGNED DEVICE UCB ADDRESS. 
06C S73 R6 = ADDRESS OF CCB. 
006C 58 ; R7 = 1/0 FUNCTION CODE. 
006C 59 ; R& = FUNCTION DECISION TABLE DISPATCH ADDRESS. 
006C 60 ; R9 = SCRATCH. 
006C 61 ; R10 = SCRATCH. 
006C 6¢ $ R11 = SCRATCH. 
4985 o7 3 AP = ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER 
445 o2 : OUTPUTS: 
006C 67 ; THE SPECIFIED CHARACTERISTICS ARE MOVED INTO THE DEVICE UCB AND THE 
006C 68 i 1/0 IS COMPLETED. 
gest Bae 
006C 71 LP_SETMODE: :Set mode function processing 
51 6C 00 006C Le; MOVL Ard: R1 sGet address of characteristics 
OO6F 7 IFNORD , (R15 ,208 sCan characteristics Quadword be read? 
53 oD 0075 74 PUSHL 4 Save packet address 
50 0090 CS’ 9E Baee 75 MOVAB UCBSL_LP_MUTEX(RS),RO Get address of UCB mutex 
00009000 ¢F 16 007C 16 JSB G*SCHSLOCKW tLock UCB for write access 
5 23.—Sséo Boas 7 CMPL #10$_SETMODE ,R7 :Set mote Sune Stent 
13 3 78 BEQL 10$ ~ s1f EQL 
40 AS 1 60 7 79 MOVW (R1),UCBSB_DEVCLASS(RS) :Set dev r+ class and type 
42 AS 2 Al 88 0 0 10$: MOVW 2(R15, ucBs@_ DEVBUFSIZ(RSS ; sSet default buffer size 
44 AS 4 Al OD 09 1 MOVL 4(R1) ,UCBSL-DEVDEPEND(R5) :Set device characteristics 
0000000'GF 16 009 2 JSB G*SCH WSUNLOCR sUnlock UC 
53 bEp0 Boe OPL RB Restore packet 
50 0O c 9E 4 MOVZWL #SS$_NORMAL ,RO :Set normal completion status 
00009900" 1 boat 5 JMP G*EXESF INISHIOC 
oa A7 $ 208 MOVZWL #SS$_ACCVIO,RO ‘Set access violation status 
00000000°GF 17 OOAA 28 JMP GPEXESABORTIO F 
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$9 * -SBTTL Write function processing 
$1 ; LPLWRITE = WRITE FUNCTION PROCESSING 
95 ; THIS ROUTINE IS CALLED FROM THE FUNCTION DECISION TABLE DISPATCHER TO PROCESS 
3¢ ; A WRITE PHYSICAL, WRITE LOGICAL, OR WRITE VIRTUAL FUNCTION TO A LINE PRINTER. 
3 2 : INPUTS: 
08 98 ; RO = SCRATCH. 
99 ; Ri = SCRATCH, 
? 3 Re = SCRATCH. 
: RS = ADDRESS OF 1/0 REQUEST PACKET. 
§ : R& = CURRENT PROCESS PCB ADDRESS. 
08 3 RS = ASSIGNED DEVICE UCB ADDRESS. 
08 4; R6 = ADDRESS OF CCB. 
08 $3 R7 = 1/0 FUNCTION CODE. 
08 88 5 ne = FUNCTION DECISION TABLE DISPATCH ADDRESS. 
08 07 ; R9 = SCRATCH. 
08 08 ; R10 = SCRATCH. 
008 09 ; R11 = SCRATCH. 
sit 1? 3 AP = ADDRESS OF FIRST FUNCTION DEPENDENT PARAMETER. 
0080 \ 3; OUTPUTS: 
08 14; THE FUNCTION PARAMETERS ARE CHECKED AND THE USER'S BUFFER IS FORMATTED 
08 12 F OY ls INTO A SYSTEM BUFFER FOR PROCESSING BY THE LINE PRINTER 
0080 13 :- 
3288 18 
080 19 LP_WRITE: sWRITE FUNCTION PROCESSING 
5B 4 et 0 CLRL R11 :Clear total number of overhead bytes 
SA D4 008 1 CLAL R10 sAssume write pass all function 
5E 5D 00 0084 ; FORMAT: MOVL FP,SP zsRemove all temporaries from stack 
10F8 8F Ht 0087 PUSHR #*M<R3,R4,R5,R6,R7,AP> ;Save registers 
5 6C 00BE 4 VL P1(AP),R8 3Get starting address of user buffer 
9 OCA C 0O0E 5 MOVZWL P2(AP),RO Get length of user buffer 
03 44 as 08 £1 00C 6 BC #LPSV_PASSALL ,UCBSL_DEVDEPEND(R5) .5$ ; If CLR, not passall 
5 0B 00 C MOVL #10$_QRITEPBLK,R7 sForce write physical 
57 OB 01 CA 8 5$: CMPL $108 URITEPBLK A? Write physical block? 
18 «6413 a) BEQL 10$ sif EQL yes 
3c AS AC 00 CF 0 MOVL P4(AP), IRP$B_CARCON(R3) ;Insert carriage control information 
0 "GF 16 D4 1 JSB G*EXESCARRI sTranslate carriage control information 
CA 3A DA § MOVZBL IRPS$B_CARCON(R3) ,RO :Get number of prefix control bytes 
1 SEA A 00D MOVZBL [RPSB_CARCON#2(R5) .RI :Get number of suffix control bytes 
3} 50 0 E 4 ADDL RO,R :Calculate number of carriage control bytes 
bY] 0 are E 5 MOVAB 3 €R1)CR119,R10 :Calculate total number of overhead bytes 
i) EA § 10$: TSTL a zAny buffer specified? 
9 1 EC BEQL 208 s1f EQL no 
5 8 7D ef $ mova R8B,RO Retrieve buffer parameters 
‘GF «616 «OOF JSB gre SURI TECHK tCheck accessibility of user buffer 
51 AMA 9 F7 40 208: MOVAB 2(R9)CR10),R1 Calculate length of buffer required 
ye | F 41 JSB GE XE SBUF FRGUOTA :Check if process has sufficient quota 
0 4g BLBS RO,25$ s1f LBS quota ok 
1 4 BRW 45$ t1f LBC quota check failure 
0 "GF 3 44 25$: JSB 6 EXESALLOCBUF Allocate buffer for Line printer output 
Se E 45 BLBC RO,45$ s1f LBC allocation failure 
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aaa ia a a a a a a tt 8 
OOOOOoO@WWWOIOIaOww>>> LR Be IN Se TD ete ee eh a 


0 
9 
38 
94 70$: MOVZBL 
95 EQL 
AB 36 MOVZBL 
F 9 2B 
1 4 80$ MOVZBL 
: ov? 
4 MOVZBL 
B 401 85$: NEQ 
D 402 MOVZBL 


15-SEP-1984 23: 
meth ri 88; 

(SP) RS 

ap ‘ SVAPTE(R3) 

L_JIB(R4),R 

BSL_BYTCNT(RO) 

PS$W-BOFF (R3) 

MEBIACR3) 

Mou BCNT (RS) 
LP_MUTEX(RS) ,RO 

SLOEKW 


4 


R 
R?7 
R10 


o-um-um-vo 
=p 
ee] 
Cc 


2 
R 
WER ,UCBSL 


> Be2CCcc RvVaonc D-DD vw 
VW MOO HO= FOMOBD— ONY 


$L_SVAPTE(R3) ,R2 
12,R2,IRPSL_MEDIA+2(R3) 
R4,UCB$B_LP_CURSOR(RS) 
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Retrieve address of 1/0 packet 
:Save address of buffered I/0 packet 
:Get JIB address 

zsAdjust buffered 1/0 quota 

:Set number of bytes charged to quota 
iClear Line feed count in packet 
zsInsert size of user buffer 

3Get address of buffer data area 
3Get address of UCB mutex 

sLock UCB for write access 

sWrite pass all? 


iif re yes 
:Calculate actual length of data area 
:Get current horizontal carriage position 
:Get current carriage return pending flag 
:Get current Line on page 
3Get width of printer carriage 

inter does not have lower case 


;Assume gr 
EVDEPEND(RS),35$ ;If CLR, no lower case 


:Set for printer with lower case 
zsInsert prefix carriage control 


zAny more bytes to transfer to system buffer 
; no | 


:1f LSS 
:Get next byte from user buffer 
sWrite byte in system buffer 


tInsert suffix carriage control in buffer 

:Calculate length of Cutout plus header 
;Calculate actual lengt 

;Save 


set tet UCB$W_DEVSTS(R5) ;Save carriage return pending 


$B_LP_LINCNT (RS 
#°M<R3,R4,R5,R6,R7,AP> 
G*EXESABORTIO 
RO, IRPSL_MEDIA+2(R3) 
RQ, (RB) TRO) 
#°A<R3,R4,R5,R6,R7,AP> 


R 
UCBSL_LP_MUTEX(RS) ,RO 
G*SCHSUNCOCK 


G*EXESQIODRVPKT 
INSERT CARRIAGE CONTROL 


JRPSB_CARCON(R3) ,~(SP) 
RPSB_CARCON+1(R3),RO 
JRPSB_CARCON+2(R3) .~(SP) 
RPSB_CARCON+3(R3) ,RO 
#C_CR,RO 


;Save current Line on page 
:Restore registers 


zInsert number of bytes to priest 
sMove characters to system buffer 
Restore registers 

sSave address of 1/0 packet 

3:Get address of UCB mutex 

sUnlock UCB 

sRestore address of 1/0 packet 
sQueue 1/0 packet to driver 


IN BUFFER 


;Get number of characters to output 
s1f EQL none 
3Get character to output 


"Get number of characters to output 


s1f EQL none 

3Get character to output 
s1f NEQ character specified 
:Get carriage return 


9 


(1) 


of output buffer 
urrent horizontal carriage position 
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0 QI 4 8S8 WRIT TE 
50 A a, b 4 Boe BL ac F-BY 
j 405 90S: 858 wR ‘e 
SOBGTR (SP), 
1DA 407 1008: TSTL (SP)+ 
1DC }3=—._ 408 RSB 
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sWrite byte in system buff 
SGet Line feed e: 


Ge 

curite byte tn system buffer 
zAny more left to insert? 
;Remove count from stack 
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/LPOR R P11/LS11/LV11 LINE PRINTER Driven’ 15-SEP-1984 59 AX/VMAS # v04-00 P 11 f 
- “SEP- 759: acro - a 
rivet urite byte into system buffer 3-3 P-1984 83:32:93 DRIVER.SRCILPDRIVER.MAR; 1 ” (1) $ 
198 i ; -SBTTL Write byte into system buffer : 
100 «41 : SUBROUTINE TO FORMAT AND FILL SYSTEM BUFFER WITH LINE PRINTER TPUT ONE BYT U 
1DD 415 ; AT A TIME. . ee OS U 
1pD aig t 
1DD 416 WRITE_BYTE: sWRITE BYTE INTO BUFFER u 
49 00000441"EF 50 €0 O1D 413 S RO, CONTROL_TAB,40$ z1f Set, Cortrol character u 
6f ‘ 0 £4 OIE 48 BBSC #V_CRPEND,R6,60$ :1f SET, carriage return pending U 
03 0000046 ff £1 OTE 419 5$: BBC RO>LOWERCASE_TAB, 108 z1f CLR, not lower case U 
0 . @& vl ? Y 108: SUBL AP,R sConvert character to upper case . 
SA 54 COTsCOTRKA CG : "(MPL «sa RG, R10 zStill room on current Line? U 
1A OF OOF? BLSsu. 15$ “If L yes | U 
15 44 AS 86 —1 1F9 426 BBC #LPSV_TRUNCATE ,UCBSL_DEV EPEND(AS -15$ ;1f CLEAR, notruncate U 
1E 46 AS 06 ET OIF Ags BBC #LPSV-WRAP,UCBSL_DEVDEPEND(R5),30$ ; If CLR, then nowrap | u 
50 oD . & ; 11$: PUSHL RO Save the current character u 
50 43 GA 428 MOVZBL #C€_CR,RO Get carriage return code u 
D 10 Bs 429 BSBB WRITE_BYTE iInsert code in system buffer u 
50 OA 3 A 430 MOVZBL #C_LF,RO Set line feed character U 
0098 0 Op 431 BSBW 110$ Insert Line feed into system buffer U 
50 8ED0 ; ? § POPL RO sRestore current character | : 
54 OD 1 434 15$: INCL R4 sIncrement horizontal position U 
51 Dd? 021 435 208: DECL R1 zAny room left in system buffer? v 
12 19 1 4 $ BLSS 37$ s1f less than, no | v 
04 44 AS 9 0 19 437 25$: BBS #LPSV_FALLBACK, UCBSL_DEVDEPEND(RS), $5$ sif set, fallback Vv 
82 0 ; If ‘ 3 S08 nove RO, (R2)+ zInsert character in system buffer \ 
440 . 
82 00000481'FF40 4 9 ‘ 441 35$: MOVB @TRANS_TABCRO], (R2)+ smove translated character into system butte, 
0 : rr RSB return to caller, for another byte | 
0092 = s51 ; ree 37$: BR 150$ sno room in system buffer | , 
E 446; | “ 
—E 447 : CONTROL CHARACTER ENCOUNTERED | ; 
ert } 
7F BF OS 91 3 450 40$: CMPB RO, #*X7F sDelete Character? | | 
is $3) BNEQ peg. nas a gelete character | 
BB 44 AS 2 ‘ 4 & § BBS a P$V_PRINTALL ,UCBSL_DEVDEP ND(R5),10$ ; If SET, allow delete charac 
6 ‘ 9 $2 45$: BGEQU s1f GEQU, non-printable character (multi) 
50 D 454 CMPL #C_CR,RO :Carriage return? 
1F $33 BLSSU ; $ zs1f LSS no 
1A 4 § BGTRU $ zif erty no F 
74 44 AS E 45 BBS #LPS$V_CR,UCBSL_DEVDEPEND(R5),140$ ;If SET, corr tage return required | . 
56 1 § rtf $38 pest #h_CRPEND RO :Set carriage return pending 
08 56 99 £4 0248 460 508: BBSC  #V_CRPEND.R6,60S :1f SET, carriage return pending | F 
C1 44 A 59 4F 461 BBS r PSV_PRINTALL ,UCBSL_DEVDEPEND (RS) . OS :If SET. print character § 
FFCA 1 4 re BR 30$ sExit this is nonprintable F 
0 pp 7 465 60$: PUSHL R sSave current character § 
50 D a 9 4 MOVZBL 4&#C gR.RO 3Get carriage return character $ 
3 9 C 465 B8SBB 140 zInsert carriage return in buffer ( 
8ED E 466 POPL RO sRetrieve current character 4 
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i BRW WRITE_BYTE 3 
4 
i CHARACTER IS A TAB, LINE FEED, VERTICLE TAB, OR FORM FEED 
472 ° 
475 70$: hy #¢ TAB,RO 3 Tabulation character? 
474 BGT $ s1f GTRU 
$22 Br ssu 0$ iif ossu = 
t39 : 
$28 3; CHARACTER IS A TAB 
480 ° 
481 BBSC #V_CRPEND ,R6,60$ ;If care tage vs return oe 
4 ; BBS aL Py TAB, UCBSL_ DEVDEPEND(RS) © “208 do not expand TAB 
4 PUSHAB 8(R4)~ sCalculate next tab position 
484 BICL #7, (SP) Clear excess bits 
485 SUBL R4, (SP) sCalculate blank count 
4 6 MOVZBL #*A/ /,RO :Set space character 
: 7 BRB 100$ : 
& : 
aay 3; CHARACTER IS A LINE FEED, VERTICAL TAB, OR FORM FEED 
492 ° 
29 80$: CMPL #C_VT,RO sVertical saat 
494 EQL 508 sI1f EQL yes 
$3? BGTRU 110% sI1f GTRU Line feed 
499 3 
$38 3; CHARACTER IS A FORM FEED 
0 o 
$f vty g UCBSL -DEVDEPEND+3(R5), RO ;Get number of Lines per page 
8 SUBL SP alculat ¢ custer “! Lines to end of page 
BBC #LPSV’MECHFORM, syucest. DEVBEPEND(RS). 90$ ;If CLR, no mechanical feed 
4 ADDL (SP)+, IRPSL_MEDI :Update number it Lines printed 
5 a tao. ;Set form feed character 
90$: MOVZBL ‘set Line feed character 
3 100$ BSBW URTIE. BYTE tInsert byte in system buffer 
SOBGTR $50} 31 tAny more bytes to insert? 
\? TSTL sRemove loop count from stack 
1 RSB 3 
1 : 
13 i 3; CHARACTER IS A LINE FEED 
1 Py 
13 1108: 
8 INCL R7 pmerenees Line position on page 
1 INCL Th stn DIA(R3) Increment number of Lines printed 
9 te Rr UCBSL. bEVDEPEND+3(R5)° a: of abage? 
§ 1908 CLRL i it Neg sine position on page 
1508 BICL #M_CRPEND ,R6 iClear carriage return pending 
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a Seer 188s Gaiters? YOMIVER. caeacpbaivee.mars1 * 29° 
RG sClear horizontal position 
208 ; 


: OUTPUT WILL NOT FIT IN ALLOCATED BUFFER 


He to VAPTECRSD. RO 3Get address of buffer to deallocate 
te :Indica e no buffer allocated 
RPS <BIZE (RO) R10 sSave size of buffer 
EXESD NONPAGED :Deallocate buffer 
A at "eh ‘Remove all fonperertes from stack 
#*M<R3,R4,R5,R6,R7,AP> Restore register 


JIB address 
rAd ust byte count quota 
;Adjust count of Terese Dante 
Save address of 1/0 p 
Get operas of uCcB ——_ 


PC $._j1e(R45 RO 
mid JTBst BYTENT (ROD 


UCBSL_LP ++ alana RO 


G*SCHSUNCOC sUnlock 
R3 sRestore address of I/0 packet 
FORMAT Try again 
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LPDRIVER = LP11/LS11/LV11 LINE PRINTER DRIVER 15-SEP-1984 :59:04 VAX/VMS Macro v04-00 Page 1 
irae Nt Line printer driver aes ot 4 § £39305 DRIVER. SRCILPDORIVER.MAR; 1 ° ( 
: . -SBTTL Line printer driver 
: rh : STARTIO = START 1/0 OPERATION ON LINE PRINTERS 
F ? : THIS ROUTINE IS ENTERED WHEN THE ASSOCIATED UNIT IS IDLE AND A PACKET 
: § : IS AVAILABLE. 
F 4 : INPUTS: 
F § : 7 = ADDRESS OF 1/0 REQUEST PACKET. 
: 57 ; RS = UCB ADDRESS FOR IDLE UNIT. 
F 33 : OUTPUTS: 
F 61 : NO EXPLICIT OUTPUTS = THE UNIT IS IN WAITING FOR INTERRPUT STATE 
0 : 6¢ 3 OR THE I/0 IS COMPLETE. 
F 64 
F 2? STARTIO: 
53 58 AS 00 F 96 MOVL UCBSL_IRP(RS) ,.R3 Retrieve address of 1/0 packet 
- AS B60 FC 56 MOVW IRPSL_MEDIA+2(R3) ,- 
C AS O2FF 208 UCBSW_BOFF (R5) :Set number of characters to print 
33 78 AS) 600) «(0301 § MOVL yces SVAPTE(RS) ,R sGet address of system buffer 
5 OC AS) = 9E_—=s0305 0 MOVAB 12(R35),R3 :Get address of data area 
54 24 AS 00 0309 = =571 MOVL  UCBSL_CRB(RS),R4 “Get address of C 
54 20 B4 ODO 300 2 MOVL  @CRBSC_INTD+VECSL_IDB(R4S,R4 ;Get device CSR address 
O31 374 > START NEXT OUTPUT SEQUENCE 
11 76° 
54 0¢ ¢! 31] 278 10$: ADDL3 #LP_DBR,R4,RO :Calculate address of data buffer register 
5 7C A C 0315 578 MOVZWL UCBSW_BOFF(RS),R1 :Get number of characters remaining 
52 8080 8F 60 19 79 MOVW #*x8080,R2 Get control register test mask 
1 11 1 0 BRB 25$ Start output 
66 «OS 83 p 1 20$ BITW Re (R4) Printer ready or have paper problem? 
1 15 ; BLEQ 3 s1f LEQ not ready or paper problem 
60 83 4 8 ee MOVE (R35) 4, (RO) Output next character 
7E 00000000°GF 01 7 584 ASHL #1, GEXESGL_UBDELAY,-(SP) yDelay 3*2 u-seconds 
FD 6E F4 OO 3 5 248: SOBGEQ (SP) ,24$ sDelay loop calibrated to machine speed 
5E o* co § ADDL “$f Pop extra longword off stack 
E7 51 F4 3 25$: SOBGEQ R1,20$ zany more characters to output? 
009D «31 0339 : BRW 70$ ALL done, BRW to set return status 
C 3 
. $1 ; PRINTER IS NOT READY OR HAS PAPER PROBLEM 
¢ 593° 
30 «12 C 94 30S: BNEQ 40$ s1f NEQ paper problem 
7c AS) 6 551—Si«séAT 3 95 ApoN® $f R1,UCBSW prt cess Save canoe of characters remaining 
4 9 DSBINT UCBSB_DIPL(R ) :Disable interrupts 
64 0080 8F 8 4A 9 ITW #*x80,LP_CSR(R4) sls it ready now? 
16 4f 38 BNEQ sif NEO. yes its ready 
64 40 8F 8 1 9 BISB #*x40  ceiauaes Set nterrupt enable 
5 6 0 WEIKPCH 50$,a1 sWait for ready interrupt 
i 1 IOF ORK sCreate a fork process 
AA 11 $5 ° § BRB 10% 3 6ee and start next output 
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LPD S$ Macro V04-00 Page 15 
v04 Line printer driver =-SEP=-1984 DRIVER. SRCILPDRIVER.MAR; 1 (1) 
67 4 35$: 
of g 5 ENBINT sEnable system interrupts 
| 64 8 A 6 $ CLRW LP CSR(R4) iDisable device interrupts 
A3 1 of 6 Bre os 3:Go transfer more characters 
43 if ; PRINTER HAS PAPER PROBLEM 
6— 611 © 
9996 3 D4 § 612 40S: CLRL UCBSL_LP bg lb Clear offline counter 
7C AS 1 1 Al 61 ADDW3 = #1, R1 ,UCBSW_BOFF (RS) Save number of characters remaining 
64 B4 0377 614 50$: CLRW LP CSR(R4) :Disable printer interrupt 
79 $19 SETIPL UCBS$B_FIPL(RS) sLower to fork level 
64 B85 7D 18 TSTW bf CSR(R4) Printer still have paper problem? 
08 19 7F 61 BLSS 3§ z1f LSS yes 
0094 C5 H Bo 1 918 MOVL #15, UCBSL_LP_TIMEOUT(RS);Set timeout value 
FF 1 § 61 BRW > ...and start next output 
5364 a5 0 E0 z ? y 55$: BBS #UCBSV_CANCEL ,UCBSW_STS(R5S) ,80$ s1f SET, cancel 1/0 operation 
01 0094 cS” Fl § 6 ¢ ACBL UCBSL_LP_TIMEOUT(RS) ,#1,- 
0028 0098 ¢5 6 33 6 ; UCBSL-LP~OFLCNT(R5) ,60$ ;Skip until timeout 
0098 C5) «4 98 625 CLRL UCBSL_LP_OFLCNT(RS) ;Reset counter 
00000780 8F 01 9 626 CMPL LP_HRCNT,=- :One hour timeout? 
0094 C5 32627 CBSL_LP_fIMEOUT(RS) 
0S 18 3 628 BLEQU 4 s1f LSS yes and dont increment 
0094 C5 F C4 8 A? 629 MULL #2,UCBSL_LP_TIMEOUT(RS) ;Double message timeout value 
1 BB AC 630 57$: PUSHR #*M<R3,RZ> Save registers 
54 05 9A Q3AE 631 MOVZBL #MSG$_DEVOFFLIN,R4 :Set up message type 
53 O0000000°GF 9€&: 0381 6 ¢ MOVAB G“SYSSGL_OPRMBX,R3 zAddress target mailbox 
00000000°GF 16 B8 63 JSB G*EXESSNBEVMSG :Send message ignore error 
18 634 POPR “mc > sRestore registers 
CO 635 60$: = DSBINT ycese SIPL(RS) :Disable interrupts 
C7? 6 § WFIKPCH 50$,42 sWait for a timeout 
0301 6 1OF ORK :Create for process 
9 11 4 44 ° } BRB 50$ 3 
D9 «= 640 gs 
44 ete ; 1/0 OPERATION SUCCESSFULLY COMPLETED 
D9 «643 
50. 01 3C D9 644 70$: MOVZWL #SS$_NORMAL ,RO sSet normal completion status 
7¢ Ag B4 $c oh? cL ee ycBsO_BorF (RS) Correct remaining character count 
|g 
e fi : 1/0 OPERATION CANCELED 
—E1 651° 
50 2 3¢ €1 $36 $44 MOVZ2WL #SS$_ABORT,RO :Set operation aborted status 
8 A 0 O3&4 653 908 MOVL  UCBSC_IRP(RS) .R3 Retrieve address of 1/0 packet 
A £8 694 MOVZWL IRPSL“MEDIACRS) RI iGet number of Lines printed 
7605 7005 A EC 655 SUBW UCBSWBOFF (RD) .UCBSY BCNT(RS) ;Calculate number of characters 
50 1 7E ASF Fl 626 INSV UCBSW"BCNT(RS) ,#16,4T6,RO ;Insert number of characters in status, 
F7 =65 REQCOM sComplete 1/0 request 
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ira tt tPit PAA A | Line printer interrupt di mets 7 $8:42:99 YORIVER. SRCILPDRIVER.MAR; 1 . (1) 
44 666 ‘ -SBTTL LPI1/LS11/LV11 Line printer interrupt dispatcher 
As e8e 3 LPSINT = LP11/LS11/LV11 LINE PRINTER INTERRUPT DISPATCHER. 
FD 665 ; THIS ROUTINE IS ENTERED VIA A JSB INSTRUCTION WHEN AN INTERRUPT OCCURS ON AN 
44 66% 3 LP11/LS11/LV11 LINE PRINTER CONTROLLER. THE STATE OF THE STACK ON ENTRY IS: 
FD 908 ; O(SP) = ADDRESS OF IDB ADDRESS. 
FD 667 ; 4(SP) = SAVED +e 
FD 668; Btae} = SAVED R 
FD 999 HY 12(SP) = SAVED Rg 
FD ? 9 ; sR ae} = INTER RUPT PC. 
4 of 3 20(SP) = INTERRUPT PSL. 
0 AY er$ 3 INTERRUPT DISPATCHING OCCURS AS FOLLOWS: 
8 FD 675 ;: If THE INTERRUPT IS EXPECTED, THEN THE DRIVER IS CALLED AT ITS INTERRUPT 
O3FD 676; WAIT ADDRESS. ELSE THE INTERRUPT IS DISMISSED. 
O3FD 677 ;- 
O3FD 678 
O3FD 679 LPSINT:: sEntry from dispatch 
53 43 DO O3FD on MOVL a(sPp Get address of IDB 
54 6 7D 8708 681 MOva th * Rn centres lee CSR and owner UCB address 
09 64 AS 01 «ES 040 68¢ BBCC #uCcBS0_INT, Ratésy. STS(RS). “108 CLR, interrupt not expected 
64 B84 0408 68 CLRW (RG) Disable condest interrupts 
53 10A5 DO O40A 684 MOVL UCBSL gi? R3 eeeeere remainder of driver context 
0C BS 16 O40E 685 JSB aucesC_FPC(RSS iCall driver at interrupt wait address 
50 8E& 7D 0411 686 108: MOVa (SP)+, :Restore registers 
52 BE 7D 0414 687 mOva (SP)+,R2 3 
54 8E 7D 0417 688 MOVQ (SP)+,R4 : 
02 O41A 689 REI : 


B 9 
vourO00" Line printeruniteinitistizetion "S-SEpa19be Gortess? EDRIVER.SREICPDRIVER.MaR;1 @% U4), 
418 3H > .SBTTL Line printer unit initialization 
693 LP_LX11_INIT = LINE PRINTER UNIT INITIALIZATION 
695 ; THIS ROUTINE IS CALLED AT SYSTEM STARTUP AND AFTER A POWER FAILURE. THE 
69 ONLINE BIT IS SET FOR THE SPECIFIED UNIT. 
: INPUTS: 
; RS = ADDRESS OF DEVICE UCB. 
; OUTPUTS: 
; THE ONLINE Bit 1s SET IN THE DEVICE UCB AND THE ADDRESS OF THE UCB 
3 IS FILLED INTO THE IDB OWNER FIELD. 
L 


NE PRINTER UNIT INITIALIZATION 


P_LX11_INIT: ikl 
BISwW NLINE ,UCBSW_STS(R5) ;Set unit online 


1s #UCBSM_O 
50 34 AS v0 MOVL UCBSL_CRB(RS) ,RO Get address of CRB. 
50 AO dO MOVL CRBSL~ INTD+VECSL IDB(RO), ath 3Get address of IDB 
04 a0 55 =200 MOVL RS, IDB$L_OWNER(RO) iSet address of device UCB 
05 RSB ;Return 
LP_LX11_CINIT: ;CONTROLLER INITIALIZATION 
50 18 AS 00 MOVL IDBSL_UCBLST(R5).R Get address of UCB 
0094 cO OF 00 MOVL #15, UCB$L LP TIMEOUT (ROD: ‘Set timeout value 
000004681'EF  00000485'EF , ot FALCTAB, TRANS. T AB iGet address of fal Lback table 
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v04 Tables for lowercase and control charact 5-SEP-1984 DRIVER. SRCILPDRIVER.MAR; 1 


-SBTTL Tables for lowercase and control characters 


, 
Fa 
_ 


; Bit table to distinguish control characters 
tONTROL TAB: 


F WORD *B1999999911911111 
F WORD “B111117111711111111 
0 «LONG 

0 «LON 

0 -WOR 

0 -WORD *B1000000000000000 
F WORD *B1711191717991911 
f B1117111191971111111 
0 

0 


SSN 


Sak tek dekh lalate tak tak_ tak lalate ek ak ak ak ak kaka tte tak atk, ak tak 
SODNAUNE WN 9S OD NAME WW 9 ODNOAUES WIN — O OONOAOUE wn 
ao 


0.09 09 0909 C909 C0 SINS DADA AAA AAA A MII EEE EEE 
WN HNO OU OO OU St OS OU Ss OO OUI 


0 : 
8 : : Bit table to distinguish lower case characters 
8 42 LOWERCASE_TAB: 
00000000 4 LONG 0 
00000000 0 4 LONG 8 
00000000 0 4 LONG 
FE 0 4 ORD *B1111111111111110 
74 ~WORD *B80000011111111111 
00000000 74 LONG 8 
00000000 74 - LONG 
00000000 0 75 . LON 0 
FFFF 0 75 eWORD *B1111111111111111 
FFE 04 fe »WORD *B0011111111111110 
4 754 ; 
04 rss } Pointer to the fallback tables 
04 756 ; 
04 757 TRANS_TAB: 
00000485° 04 75 . CONG FALLTAB 
04 75 
04 76 


18 
(1) 


= LPTI/LS11/LV11 34 re: PRINTER priv Rn 15-SEP-1984 } 97308 AX/VMS Macro v04-00 Page 
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@ 
leh eli eh edi dah elk adh eb edb “ahh sacha “ah sth “dh dhl 


oo 


SNS 
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DRIVER. SRCILPDRIVER.MAR; 1 
-SBTTL FALLBACK = table that will create fallback presentation © 


{FALLBACK - TABLE TO ALLOW THE TERMINAL TO DO FALLBACK PRESENTATION OF 
BBIT CHARACTERS on 7 bit terminals 


; Description: 

: Phe following macros generate 1 table. The table is a 256 wre 
; table with the single character fallback Cepresentet ten of alit 

; characters that can be represented by a single character, those olen 


; no fallback presentation at all are represented by the _ character, 
emacro $fallini 

repent 256 

F LE $$-<*X9F> ; EVERYTHING BUT THE MULTINATIONAL SET SHOULD 
; ECHO AS ITSELF. 

-byte $$ 

o 1FF 
BYTE *A/_/ 

-ENDC 

$$=$$+1 ‘ 

.endr 

$$$-. 


-endm  $fallini 
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| 06-000 FALLBACK = table that will create fallba 3 3Eb= bbc 6:44:97 DRIVER. SRCILPORIVER.MAR; 1 . 3) 


SPALL - generates the table entry for a given character 
Inputs: 


CHARH = COLUMN IN ™ tt TABLE. 
CHARL = ROW IN THE ASCII TABLE. 

FALLBACK = String that is the fallback representation 
COUNT = Number of times to repeat this character 


79 -MACRO S$FALL CHARH,CHARL,FALLBACK,COUNT=1 
79 FALL TAB+<CHARH® 16>4#CHARL 
00 .REPEAT COUNT 
4 “NCHR SLEN,“*\FALLBACK\ 
-IF EQ SLEN- 
-BYTE “*A/FALLBACK/ 


04 .ENDR 
05 -ENDM = SFALL 
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TER DRIVER 
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+ 
SFALLEND = GENERATES END CONDITIONS FOR THE FALLBACK TABLE 
Description: 


3 


AX/VMS M 
DRIVER.S 


Resets the . to the end of the fallback table 


Inputs: 


None 
«MACRO = SFALLEND 
-ENDM SFALLEND 
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LPDRIVER :04 YAX/VMS Macro v04-00 Page 24 
Symbol table £08 DRIVER. SRCILPDRIVER.MAR; 1 . (6) 
UCBSB_F IPL = 000000 
UCBSB-LP_CURS 
Mitt ets LINCNT 
ucBsB_ hens 
Ue ee LENG H 2 
UCBSK_SIZE = 
CBSL_CRB = 
UCBSL_DEVC S 
UCBSL_DEVCHAR2 = 
UCBSL_DEVD = 
UCBSL _FP = 
UCBSL_FR = 
UCBSL_IRP = 
UCBSL_LP_MUTEX 
UCBSL-LP-OFLCNT 
UCBSL_LP_TIMEOU 
UCBSL-SVAPTE = 
UCBSM_ONL INE = 000 ° i 
UCBSV_CANCEL = 00 0 
UCBSV_INT = 00000 
UCBSW_BCNT = 00000 t 
UCBSW_BOFF = 4 54 4 
UCBSW_DEVBUF SIZ = 0000004 
UCBSW_DEVSTS = 0006 
UCBSW_STS = 00000064 
VECSL_108 = 44 44444 
VECSL_INITIAL = 000000 § 
VECSL_UNITINIT = 0000001 
V_CRPEND = 00000000 
WRITE_BYTE 000001DD R 03 
$eeramoncenrernroacocae + 
! ;_Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 < 0.) 00 ¢ 0.) NOPIC USR CON ABS ~- LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS$ QQ0000A0 ( 160.) + PIC USR CON S LCL x RD WRT NOVEC BYTE 
$$$105_PROLOGUE Q0000007C ( 124.) ( ¢ ) NOPIC USR CON REL LCL NOSHR EXE’ RD WRT NOVEC Oyte 
$$$115"DRIVER 00000585 ( 1413.) 03 ¢ -) NOPIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC L 
Feo maeecn aes near aor em omens 
! ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization $e : +98 :00.80 
nen processing 133 :00. § : 7 34 
Syabol table sort 169 : $ :00: 5:4 
oe table output 1 34 :00: 38 
Psect synopsis output 01 :00:00.01 
Cross-reference output . ° :00:00. 
Assembler run totals 88 " 7:01:28. 


<z | 


ro 


| 


LOoRiver 
VAK-11 Macro Run Statistics 


by Be pp dey oes ye was 1959 pages. 

14 bytes (295 pages) of virtual memory were used to buffer gne intermediate gpee- 

There were 120 pages of eyapet table space allocated to hold 2159 non-local and 54 Local symbols. 
source Lines were read in Pass 1, produc ng_19 object records in Pass 2. 

41 pages of virtual memory were used to define 38 macros. 
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! Macro Library statistics ! 


Pome a ror nee ane wea mn ewe aa } 


Macro Library name Macros defined 
t A28:(SYS.OBJJL1IB.MLB8; 1 2 
Rtiittnt f SYSLIBJSTARLET.MLB;2 #4 
TOTALS (all Libraries) 33 


2424 GETS were required to define 33 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:LPDRIVER/OBJ=OBJ$:LPDRIVER MSRCS$:LPDRIVER/UPDATE=(ENHS$:LPDRIVER) *+EXECML$/LIB 
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. — se Ecoplay 3 obec 80: i0; 7 DRIVER. SRCILPDRIVER.MAR; 1 
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